unit MultiClassMethod_dxDocking;

interface
uses
  {$IF CompilerVersion<16}
  Graphics,
  {$ELSE}
  VCL.Graphics,
  {$IFEND}
  Classes,SysUtils,Variants,
  AcroMultiClassMethod,
  dxDockControl;

implementation

procedure Proc_TdxCustomDockControl(ATable:IDataLocate; AComponent:TObject; ALCID,ASeqNo:String; AParams:TStringList);
begin
  TdxCustomDockControl(AComponent).Caption :=
    GetDisplayValue(ATable,TdxCustomDockControl(AComponent).Caption, ALCID, ASeqNo,
      TdxCustomDockControl(AComponent),'Caption');
end;

initialization
  AcroClassMethodStorage.RegisterClassMethod(TdxCustomDockControl          , Proc_TdxCustomDockControl);
finalization
  AcroClassMethodStorage.UnRegisterClassMethod(TdxCustomDockControl);
end.
